 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: 2008 Scripting Games Sudden Death Event 7
|
||
|
' This is my Solution for the Scripting Games 2008
' For more Information look at ' http://www.microsoft.com/technet/scriptcenter/funzone/games/games08.mspx Option Explicit Dim oSAPI : Set oSAPI = Wscript.CreateObject("SAPI.SpVoice") Call Main() ' --------------------------------------- Sub Main() Dim strAgentName, strAgentPath, oAgent, oCharacter strAgentName = "Merlin" Set oAgent = CreateObject("Agent.Control.2") oAgent.Connected = TRUE oAgent.Characters.Load strAgentName Set oCharacter = oAgent.Characters.Character(strAgentName) Dim iRet : iRet = 100 iRet = iRet * 2 iRet = iRet / 30 iRet = Int(iRet) iRet = iRet^5 iRet = iRet * 4 iRet = Sqr(iRet) iRet = iRet / 45 iRet = FormatNumber(iRet,2) oCharacter.Show oCharacter.Play "GetAttention" oCharacter.Speak iRet wscript.sleep 2000 oSAPI.speak iRet wscript.sleep 1000 oCharacter.Hide Do While oCharacter.Visible = TRUE Wscript.Sleep 100 Loop End Sub | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
